home *** CD-ROM | disk | FTP | other *** search
/ Merciful 3 / Merciful_Release_3.bin / software / d / decompressordtypev39.0.lha / DecompressorDT / Install DecompressorDT < prev    next >
Text File  |  1996-10-09  |  2KB  |  92 lines
  1. ; Installer script for decompressor
  2. ; $VER: Install decompressor 39.0 (10.10.96)
  3. ; This script written by Michal Letowski
  4.  
  5. (complete 0)
  6.  
  7. (set @l-dest "LIBS:DataTypes/")
  8. (set @permanent-dest "DEVS:DataTypes/")
  9. (set @default-dest "SYS:Storage/DataTypes/")
  10.  
  11. (set #dt "Libs/DataTypes/decompressor.datatype")
  12. (set #recog "Devs/DataTypes/Decompressor")
  13.  
  14. ; ***************************************************************************
  15. ; English strings
  16.  
  17. (set #bad-kick
  18.     (cat "You must have AmigaDOS 3.0 or higher to use decompressor.datatype!"))
  19.  
  20. (set #welcome
  21.     (cat "\ndecompressor.datatype installation\n\n\n"
  22.        "This script installs decompressor.datatype 39.0\n"
  23.        "on your Amiga.\n\n\n\n"
  24.        "decompressor.datatype is\n"
  25.        "Copyright © 1996 Mikolaj Calusinski\n"
  26.        "All rights reserved.\n\n"))
  27.  
  28. (set #where-driver
  29.     (cat "Should decompressor.datatype be installed permanently?"))
  30.  
  31. (set #where-help
  32.     (cat "\nDataTypes can be installed as Permanently Enabled"
  33.          " or Manually Selectable.\n"
  34.        "Pemanently Enabled means that the DataType is always"
  35.        " ready for use.\n"
  36.        "Manually Selectable means that the datatype has to be"
  37.        " activated before it can be used.\n"))
  38.  
  39. ; ***************************************************************************
  40. ; Install decompressor.datatype
  41.  
  42. ; Check AmigaDOS version
  43. (set #version (/ (getversion) 65536))
  44. (if (< #version 39)
  45.     (
  46.         (abort #bad-kick)
  47.     )
  48. )
  49.  
  50. (message #welcome)
  51.  
  52. (welcome)
  53. (set old_level @user-level)
  54.  
  55. (user 2)
  56. (set #perm
  57.     (askbool
  58.         (prompt #where-driver)
  59.         (help #where-help)
  60.         (default 0))
  61. )
  62. (if #perm
  63.     (set @recog-dest @permanent-dest)
  64.     (set @recog-dest @default-dest)
  65. )
  66.  
  67. ; Do copy
  68. (user old_level)
  69.  
  70. ; Copy library
  71. (copylib
  72.     (source #dt)
  73.     (dest @l-dest)
  74. )
  75. (complete 40)
  76.  
  77. ; Copy recog
  78. (copyfiles
  79.     (source #recog)
  80.     (dest @recog-dest)
  81.     (all)
  82. )
  83. (complete 80)
  84.  
  85. ; Activate descriptors if Permanently enabled
  86. (if #perm
  87.     (run "AddDataTypes REFRESH")
  88. )
  89.  
  90. (set @default-dest "")
  91. (exit)
  92.